﻿Public Class frmRelationship

    Private _RelationshipId As Integer

    Public Property RelationshipId As Integer
        Get
            Return _RelationshipId
        End Get
        Set(ByVal value As Integer)
            _RelationshipId = value
            lblRelationshipId.Text = "Relationship:" & _RelationshipId
            Dim oRelationship As SponsorshipLogic.Relationship
            oRelationship = SponsorshipLogic.Relationship.GetRelationship(value)
            CtlRelationship1.Relationship = oRelationship
        End Set
    End Property
End Class